home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / rpgf_pc2.exe / TSTOUT.RPG < prev   
Text File  |  1991-01-31  |  2KB  |  67 lines

  1.      H*-- TSTIN1.RPF -- Test RPG/free input file 1
  2.      H*
  3.      H*-- Note: This does NOT generate a compilable RPG III program
  4.      H*--       It just generates a file for comparison with TSTOUT.RPG
  5.      H*
  6.      F*/FILE 
  7.      FLIBLIST IF  E                    DISK
  8.      FBDF810  CF  E                    WORKSTN
  9.      F                                        RRN   KSFILE SFLREC
  10.      F*
  11.      I*/INPUT 
  12.      I            DS
  13.      I                                        1   6 ODSDAT
  14.      I                                        1   60SAVDAT
  15.      I*
  16.      I*/FIRSTCOL 7
  17.      I            DS
  18.      I                                        1   6 PRMDAT
  19.      I*/FIRSTCOL 6
  20.      I                                        1   60SAVSYS
  21.      I*
  22.      C*/CALC 
  23.      C*
  24.      C*/DEFINE infile  custfl
  25.      C*/DEFINE tst_ind *in90
  26.      C*
  27.      CLR 01 02N03F1$$$     ADD  F2        R###    50H010290
  28.      C*
  29.      C           1         DO   MAXCUS    I                
  30.      C           X         IFGT Y                          
  31.      C           INKEY     REDPECUSTFL                 0199
  32.      C                     END                             
  33.      C                     END                             
  34.      C*-- TSTIN2.RPF -- Test RPG/free input file 2
  35.      C*
  36.      C*-- Note: This does NOT generate a compilable RPG III program
  37.      C*--       It just generates a file for comparison with TSTOUT.RPG
  38.      C*
  39.      C*/DEFINE true        '1'
  40.      C*/DEFINE numeric     *IN77
  41.      C*/DEFINE not_numeric numeric <> true
  42.      C*
  43.      C                     Z-ADD0         SFLRRN  40       
  44.      C*
  45.      C*-- Check for valid date
  46.      C                     TESTN          PRMDAT     77    
  47.      C           *IN77     IFNE '1'                        
  48.      C                     Z-ADD0         SAVSYS           
  49.      C                     END                             
  50.      C*
  51.      C*-- A two-line statement
  52.      C           BASE      MULT RATE      TOTAL            
  53.      C/EXEC SQL
  54.      C+       SELECT *
  55.      C+         FROM cust
  56.      C+        WHERE custid = inputid
  57.      C/END-EXEC
  58.      C*/FIX 
  59. 12345C                     RETRN
  60.      C*/FREE 
  61.      C           B         SUB  -3        A                
  62.      C*/DATA 
  63. **
  64. Data line
  65.  
  66.  
  67.